6 SC=0:B=53280:S=53281
10 PRINT"[147]":POKEB,0:POKES,11
11 PRINT"   PLEASE [129]TYPE [158]IN YOUR [154]FIRST [156]NAME."
12 PRINT"":POKES,1:INPUT"   ";A$
13 PRINT"            HI  "A$".":FORC=1TO2000:NEXT
15 PRINT"   [156]HOW IS YOUR ''MATH'' [156]TODAY ?"
16 FORC=1TO2500:NEXT
17 PRINT"[147]"
18 PRINT"      SHOW ME.  OK   "A$" ?":FORC=1TO2000:NEXT:GOSUB200
19 PRINT"[147]"
20 FORJ=1TO3
21 PRINT""
22 PRINT"                 [166][166]"
23 PRINT"                [166]  [166]"
24 PRINT"               [166]    [166]"
25 PRINT"                    [166]"
26 PRINT"                   [166]"
27 PRINT"                  [166]"
28 PRINT"                  [166]"
29 PRINT"                  [166]"
31 PRINT
33 PRINT"                  [166]"
35 FORC=1TO300:NEXT
37 PRINT"[147]":FORC=1TO 10:NEXTC:NEXTJ
38 ON V GOTO 400,500,600,700
51 M=INT(4*RND(1)+1):ONMGOTO52,53,54,55
52 PRINT"   THAT'S RIGHT "A$"!":GOTO58
53 PRINT"   VERY GOOD "A$"!":GOTO58
54 PRINT"   YES "A$"!":GOTO58
55 PRINT"   PERFECT "A$"!":GOTO58
58 SC=SC+1:PRINT"":PRINT"   SO FAR "A$", YOU HAVE":PRINT""
59 PRINT"  "SC;"OUT OF"Q"QUESTIONS RIGHT.":GOTO68
60 M=INT(4*RND(1)+1):ONMGOTO62,63,64,65
62 PRINT"   NO "A$"!":GOTO67
63 PRINT"   SORRY "A$"!":GOTO67
64 PRINT"   WRONG "A$"!":GOTO67
65 PRINT"   YOU NEED MORE PRACTICE "A$"!":GOTO67
67 PRINT"":PRINT"   THE RIGHT ANSWER IS:"X;S$;Y"="S
68 FORC=1TO4000:NEXTC:NEXTQ
80 PRINT"[147]"
81 PRINT"   "A$", YOUR FINAL SCORE IS:"
82 F=SC/(Q-1)*100+.5:F=INT(F)
83 PRINT"":PRINT"  "SC"OUT OF"Q-1"   OR    "F"%"
84 FORC=1TO4000:NEXT
89 IFSC=Q-1THEN100
90 FORL=1TO3
91 PRINT"[147]":FORC=1TO100:NEXT
92 PRINT""TAB(7)"PRACTICE"
93 PRINT""TAB(17)"MAKES"
94 PRINT""TAB(27)"PERFECT"
96 FORC=1TO1000:NEXT:NEXTL
97 END
100 FORL=1TO3
102 PRINT"[147]":FORC=1TO1 :NEXT
104 PRINT"                   [166][166]"
105 PRINT"                   [221][221]"
106 PRINT"                   [221][221]"
107 PRINT"   [166][166]              [221][221]"
108 PRINT"   [221][221]              [166][166]"
109 PRINT"   [221][221]       YOU            "
110 PRINT"   [166][166]                      "
111 PRINT"       [166][166]         ARE      "
112 PRINT"       [221][221]     [166][166]              "
113 PRINT"       [221][221]     [221][221]        NUMBER   "
114 PRINT"       [221][221]     [221][221]                 "
115 PRINT"       [221][221]     [166][166]               [166][166]"
116 PRINT"       [221][221]                      [221][221]"
117 PRINT"       [166][166]                      [221][221]"
118 PRINT"                               [221][221]"
119 PRINT"                               [221][221]"
120 PRINT"                               [221][221]"
121 PRINT"                               [221][221]"
122 PRINT"        CONGRATULATIONS!       [166][166]"
128 FORC=1TO 10:NEXT:NEXTL
130 END
200 PRINT"[147]"
202 PRINT"     HOW MANY QUESTIONS WOULD YOU"
204 PRINT"     LIKE "A$;:INPUT" ";N
208 PRINT"[147]"
210 PRINT"     WHAT GRADE ARE YOU IN"
212 PRINT"      ";A$;:INPUT" ";G
214 GOSUB300
216 IFG<=1THEN231
217 IFG<=2THEN232
219 IFG<=4THEN234
221 IFG<=6THEN236
222 GOTO237
231 GM=11:RETURN
232 GM=26:RETURN
234 GM=51:RETURN
236 GM=101:RETURN
237 GM=1001:RETURN
238 REM THIS PROGRAM WRITTEN BY MICHAEL
239 REM AND DAVID ZAVITZ   83.1.30
240 REM REVISED FOR C-64   83.11.30
241 REM COPYING FORBIDDEN WITHOUT
242 REM PRIOR APPROVAL!    439-2861
243 REM
244 REM
245 REM REVISED FOR 'TPUG' 84.1.20
246 REM
247 REM DIRECT COMMENTS TO:
248 REM
249 REM DAVID W. ZAVITZ
250 REM 56 PAR AVE
251 REM SCARBOROUGH ONT
252 REM M1G 2G6
253 REM
300 PRINT"[147]"
302 PRINT"         1[146]-ADDITION"
304 PRINT"         2[146]-SUBTRACTION"
306 PRINT"         3[146]-MULTIPLICATION"
308 PRINT"         4[146]-DIVISION"
310 PRINT"  PLEASE TYPE THE NUMBER[146] YOU WISH."
312 PRINT"":INPUT"  ";V:IFNOT(V=1ORV=2ORV=3ORV=4)THEN300
320 RETURN
400 YES=0:YAH=0
402 FORQ=1TON
404 PRINT"[147]"
406 X=INT(RND(1)*GM):Y=INT(RND(1)*(GM-X))
410 IFX=0ORY=0THENYES=YES+1:IFYES>2         THEN406
412 IFX=1ORY=1THENYAH=YAH+1:IFYAH>2         THEN406
418 PRINT"  "X"+"Y" = ";:INPUTZ
420 PRINT""
422 S$="+":S=X+Y
424 IFZ<>STHEN60
426 GOTO51
500 YL=-1:YM=-1:YN=-1:YES=0:YAH=0
502 FORQ=1TON
504 PRINT"[147]"
506 X=INT(RND(1)*GM):Y=INT(RND(1)*(X+1))
508 IFYL=YORYM=YOYYN=YTHEN506
510 IF X=0ORY=0ORX=YTHENYES=YES+1:          IFYES>2THEN506
512 IFX=1ORY=1THENYAH=YAH+1:IFYAH>2         THEN506
514 YN=YM:YM=YL:YL=Y
518 PRINT"  "X"-"Y" = ";:INPUTZ
520 PRINT""
522 S$="-":S=X-Y
524 IFZ<>STHEN60
526 GOTO51
600 YL=-1:YM=-1:YN=-1:YES=0:YAH=0
602 FORQ=1TON:T=TI
604 PRINT"[147]    PLEASE WAIT....I'M THINKING!"
606 X=INT(RND(1)*GM):X1=X:IFX=0THENX1=1
608 Y=INT(RND(1)*GM/X1):IFYL=YORYM=YOR       YN=YTHEN606
610 IFX=0ORY=0THENYES=YES+1:IFYES>2         THEN606
612 IFX=1ORY=1THENYAH=YAH+1:IFYAH>2         THEN606
614 YN=YM:YM=YL:YL=Y
616 IFTI<T+90THEN616
618 PRINT"[147]  "X" X "Y" = ";:        INPUTZ
620 PRINT""
622 S$=" X ":S=X*Y:
624 IFZ<>STHEN60
626 GOTO51
700 YL=-1:YM=-1:YN=-1:YES=0:YAH=0
702 FORQ=1TON:T=TI
704 PRINT"[147]    PLEASE WAIT....I'M THINKING!"
706 X=INT(RND(1)*(GM-1)+1)
708 Y=INT(RND(1)*X+1):IFNOTINT(X/Y)=X/Y     THEN708
710 IFYL=YORYM=YORYN=YTHEN706
712 IFX=YTHENYES=YES+1:IFYES>2THEN706
714 IFY=1THENYAH=YAH+1:IFYAH>2THEN706
715 YN=YM:YM=YL:YL=Y
716 IFTI<T+90THEN718
718 PRINT"[147]  "X" / "Y" = ";:        INPUTZ
720 PRINT""
722 S$=" / ":S=X/Y
724 IFZ<>STHEN60
726 GOTO51